5 IFI=.THENPOKE52,112:POKE56,112:CLR:I=1:DV=PEEK(186):LOAD"WFONT",DV,1
10 IFI=1THENI=2:GOSUB140
15 IFI=2THENI=3:LOAD"WPIX1",DV,1
20 IFI=3THENI=4:LOAD"WPIX2",DV,1
25 IFI=4THENI=5:LOAD"WDSPR",DV,1
30 IFI=5THENI=6:LOAD"WIZML",DV,1
35 DV=PEEK(186):IFDV<8THENDV=8
37 GOSUB325:SYSB:GOSUB275:FORI=.TO1:R(I,.)=PEEK(P(I)):FORJ=1TO3:K=J*4-2
40 R(I,J)=PEEK(P(K+2*I))+256*PEEK(P(K+1+2*I)):NEXT:R(I,4)=PEEK(P(14+I)):NEXT
45 POKE53265,PEEK(53265)OR16:FORI=.TO1:K=.:A$="[208]URPLE":IFI=1THENA$="[199]RAY"
50 A$=A$+" [215]IZARD:":GOSUB125
55 J=R(I,.)-R(1-I,.):IFJ>.THENSYS(C)C$(J-1):GOTO105
60 SYS(C)C$(6+J):FORJ=1TO4000:NEXT:SYSS
65 J=(R(1-I,1)+1)/(R(I,1)+1):IFJ>1.5THENK=1:A$=C$(6):GOSUB125:GOTO75
70 IFJ>1.2THENA$=C$(7):K=1:GOSUB125
75 J=(R(I,2)+1)/(R(I,1)+1):IFJ<.05THENK=1:A$=C$(8):GOSUB125:GOTO85
80 IFJ<.2THENA$=C$(9):K=1:GOSUB125
85 J=(R(1-I,3)+1)/(R(I,3)+1):IFJ>1.3THENK=1:A$=C$(10):GOSUB125
90 J=5-(R(.,.)+R(1,.)):IFR(I,4)<JTHENK=1:A$=C$(11):GOSUB125
95 IFK>.THEN105
100 A$=C$(12):GOSUB125:IFI=.ANDPEEK(N)=1ANDPEEK(F)>8THENA$=C$(13):GOSUB125
102 TI$="000000"
103 IFTI$<"000002"THEN103
105 SYSS:NEXT:A$="[212]RY AGAIN (Y/N)?":SYS(C)A$:POKE198,.
110 GETA$:IFA$="Y"THENPOKE53265,PEEK(53265)AND239:SYSO:RUN35
115 IFA$<>"N"THEN110
120 GOSUB300:POKE56,160:POKE52,160:CLR:GOTO485
125 J=LEN(A$):IFJ>40THENJ=J-40
130 IFJ<40THENA$=A$+LEFT$(S$,40-J)
135 SYS(C)A$:FORJ=1TO1000+1000*K:NEXT:RETURN
140 POKE56576,(PEEK(56576)AND252)OR1:POKE648,128:POKE53272,2:POKE53280,0
145 POKE53281,0:PRINT"[147]  [155]]                 ";
150 PRINT"                 [[146]       ";
155 PRINT"                         ";
160 PRINT"        [146]    [152]            <";
165 PRINT"[146] [159][160][161][162][163][164][165][166][167][168][146] [152]>           [146]  ";
170 PRINT"              [146]  [154][176][177][178][179][180][181][182][183][184]";
175 PRINT"[146]  [152]           [146]            ";
180 PRINT"    [146]   [150][169][170][171][172][173][174][175][146]   [152]        ";
185 PRINT"   [146]                [[146]  [185][186][187]";
190 PRINT"[188][189][190][191][146]  [152]]           [146]    [151]   ";
195 PRINT"                         ";
200 PRINT"        [146]    >            ";
205 PRINT"                      <[146]"
210 PRINT"  [155]]            ";
215 PRINT"                      [[146]  ";
220 PRINT"  [152]                       ";
225 PRINT"             [146]            ";
230 PRINT"   [194]Y [202]ON [205]ATTSON          ";
235 PRINT" [146]            [208]UBLISHED ON";
240 PRINT" [204][207][193][196][211][212][193][210]       [146]       ";
245 PRINT"1-800-594-3370  1-213-221";
250 PRINT"-8718   [146]     (C) 1996 BY ";
255 PRINT"[202] & [198] [208]UBLISHING, [201]NC. [146]  ";
260 PRINT"                         ";
265 PRINT"             [146]    [151]>       ";
270 PRINT"                           <":RETURN
275 SYSD,36864,32768:I=PEEK(249)+256*PEEK(250)+6:SYSD,I,40960
280 I=PEEK(249)+256*PEEK(250)+6:SYSD,I,55296:I=PEEK(249)+256*PEEK(250)+6
285 POKE53281,PEEK(I):POKE53280,PEEK(I+1):GOSUB290:SYSS:RETURN
290 POKE53265,PEEK(53265)OR32:POKE53270,PEEK(53270)OR16:POKE53272,8:RETURN
295 POKE53265,PEEK(53265)AND223:POKE53270,PEEK(53270)AND239:POKE53272,2:RETURN
300 SYSO:POKE56576,151:POKE648,4:POKE53272,21:POKE53270,200:POKE53265,27
305 POKE53280,0:POKE53281,0:PRINT"[147][144]";:RETURN
310 SYSD,28672,32768:I=PEEK(249)+256*PEEK(250)+6:SYSD,I,40960
315 I=PEEK(249)+256*PEEK(250)+6:SYSD,I,55296:I=PEEK(249)+256*PEEK(250)+6
320 POKE53281,PEEK(I):POKE53280,PEEK(I+1):GOSUB290:RETURN
325 DIMD(7),P(15),R(1,4),C$(13):B=51623:O=49198:S=51804:C=51950:D=52068
330 N=52686:F=N+1:FORI=.TO15:P(I)=52638+I:NEXT:FORI=.TO7:READD(I):NEXT:S$=""
335 FORI=1TO40:S$=S$+" ":NEXT:FORI=.TO13:READC$(I):NEXT:READA$:C$(2)=C$(2)+A$
340 POKE53265,PEEK(53265)AND239:GOSUB275:POKE53265,PEEK(53265)OR16:I=0
345 A$="[206]UMBER OF COMBATANTS (1 OR 2)?          ":SYS(C)A$:POKE198,.
350 GETA$:IFA$="1"THENI=1:GOTO360
355 IFA$<>"2"THEN350
360 POKEN,I:IFI=.THENA$="VES":GOTO385
365 A$="[211]KILL OF OPPONENT (1=[204]OW TO 7=[200]I)?      ":SYS(C)A$:POKE198,.
370 GETA$:IFA$=""THEN370
375 I=VAL(A$):IFI<1ORI>7THEN370
380 POKEF,I*8:A$="F"
385 A$=S$+"[208]REPARE THYSEL"+A$+" FOR BATTLE...":SYS(C)A$:FORI=1TO2000:NEXT
390 POKE53265,PEEK(53265)AND239:SYSO:GOSUB310:FORI=.TO2:POKE55297+I,4
395 POKE55332+I,11:FORJ=.TO7:K=40968+I*8+J:POKEK,D(J):POKEK+280,D(J):NEXTJ,I
400 RETURN
405 DATA0,252,252,252,48,48,0,0
410 DATA"[212]HOU ART VICTORIOUS IN A WELL-MATCHED   CONTEST!"
415 DATA"[215]ELL DONE! [212]HY SKILL IS COMMENDABLE."
420 DATA"[212]HY SKILL IS UNMATCHED! [208]ERHAPS THOU    SHOULDST SEEK BATTLE WITH A "
425 DATA"[194]RIMSTONE! '[212]WAS A SORRY SHOW, INDEED!"
430 DATA"[212]SK,TSK! [212]HOU EITHER NEEDETH MORE LUCK  OR MORE SKILL!"
435 DATA"[193] VALIANT EFFORT! [212]HY LOSS DOES THEE NO SHAME IN SUCH AN EVEN MATCH."
440 DATA"[212]HY FOE OVERWHELMED THEE! [213]SE THY MAGIC!"
445 DATA"[208]ERHAPS THOU SHOULDST FIRE MORE OFTEN?"
450 DATA"[212]HY AIM IS DISMAL! [193]CCURACY! [195]ONTROL!"
455 DATA"[212]HY ACCURACY COULD STAND IMPROVEMENT."
460 DATA"[213]SE THY MOBILITY! [212]HOU ART NOT A TARGET!"
465 DATA"[210]EMEMBER - THY POWER WILL BE BOOSTED BY TOUCHING EACH PLATFORM."
470 DATA"[208]RACTICE WOULD SERVE THEE WELL, BUT THY MOVES ARE NOT TOO DISMAL."
475 DATA"[208]ERHAPS A FOE OF LESSER SKILL WOULD BE  MORE APPROPRIATE..?"
480 DATA"MORE WORTHY OPPONENT..?"
485 DV=PEEK(186):IFDV<8THENDV=8
487 OPEN15,DV,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
490 IFER=63THEN510
495 PRINT"[147]":END
500 GETA$:IFA$<>CHR$(13)THEN500
505 GOTO485
510 PRINT"[147]":PRINT"LOAD"CHR$(34);
515 PRINT"HELLO CONNECT"CHR$(34)","DV:PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13
520 POKE632,13:POKE633,13:POKE198,3:NEW
10000 D=PEEK(186):N$="B.WIZARD DUEL":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END